home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 6 / FM Towns Free Software Collection 6.iso / t_os / rupin / rupin.bas next >
BASIC Source File  |  1993-07-08  |  2KB  |  95 lines
  1. 10 CLS:X=0:Y=0:XX=0:YY=0:YYY=0
  2. 20 DIM TYP%(30000)
  3. 30 LOAD@"A:\RUPIN\TYP.SND",TYP%
  4. 40 DIM MO(100)
  5. 50 DIM MAS$(100)
  6. 60 DIM KMSG$(100) 
  7. 70 DIM MSG$(100) 
  8. 80 RET=1
  9. 90 PRINT USING "#列目のメッセ－ジを入力してください";RET
  10. 100 PRINT       "(全角５文字､半角８文字まで)"
  11. 110 INPUT MAS$(RET)
  12. 120 IF MAS$(RET)="" THEN 160
  13. 130 RET=RET+1:IF RET=>4 THEN 160
  14. 140 GOTO 90
  15. 150 '******************************************************************
  16. 160 RET=1:HH=0
  17. 170 INPUT "１・全角文字／２・半角文字",S$
  18. 180 IF S$="1" OR S$="１" THEN 
  19. 190  GOSUB *全角用読み取り
  20. 200 GOTO *ZEN
  21. 210 ELSE
  22. 220  GOSUB *半角用読み取り
  23. 230 ENDIF
  24. 240 GOTO *表示
  25. 250 '*******************************************************************
  26. 260 *半角用読み取り
  27. 270 H=H+1:HH=HH+1
  28. 280 MSG$(H)=MID$(MAS$(RET),HH,1)
  29. 290 IF MSG$(H)="" THEN MO(RET)=H: RET=RET+1:HH=0
  30. 300 IF MAS$(RET)="" THEN MO(RET)=0:RETURN
  31. 310 GOTO 260
  32. 320 '*******************************************************************
  33. 330 *全角用読み取り
  34. 340  H=H+1:HH=HH+1
  35. 350  KMSG$(H)=KMID$(MAS$(RET),HH,1)
  36. 360 IF KMSG$(H)="" THEN MO(RET)=H: RET=RET+1:HH=0
  37. 370 IF MAS$(RET)="" THEN MO(RET)=0:RETURN
  38. 380 GOTO 330
  39. 390 '*******************************************************************
  40. 400 *表示
  41. 410 A=1:CLS
  42. 420 FOR I=1 TO H
  43. 430  SYMBOL (2,0),MSG$(A),65,32
  44. 440  A=A+1
  45. 450 PCMPLAY TYP%
  46. 460  WAIT 10
  47. 470  CLS
  48. 480 NEXT I
  49. 490 GOTO *全体
  50. 500 '*******************************************************************
  51. 510 *ZEN
  52. 520 A=1:CLS
  53. 530 FOR I=1 TO H
  54. 540  SYMBOL (0,0),KMSG$(A),40,30
  55. 550  A=A+1
  56. 560 PCMPLAY TYP%
  57. 570  WAIT 10
  58. 580  CLS
  59. 590 NEXT I
  60. 600 GOTO *Z全体
  61. 610 '******************************************************************
  62. 620 *全体:X=10
  63. 630 IF MO(2)=0 THEN 
  64. 640 Y=16:YYY=235:YY=100
  65. 650  GOTO *ZHYOJI
  66. 660  ENDIF
  67. 670  IF MO(3)=0 THEN 
  68. 680   Y=17:YYY=235
  69. 690   GOTO *ZHYOJI
  70. 700 ENDIF
  71. 710  IF MO(4)=0 THEN
  72. 720  Y=10.5!:YYY=165
  73. 730 GOTO *ZHYOJI
  74. 740 ENDIF
  75. 750 *Z全体:X=8
  76. 760 IF MO(2)=0 THEN 
  77. 770  Y=10:YYY=162:YY=10
  78. 780   GOTO *ZHYOJI
  79. 790   ENDIF
  80. 800  IF MO(3)=0 THEN 
  81. 810    Y=10:YYY=162:GOTO *ZHYOJI
  82. 820  ENDIF
  83. 830   IF MO(4)=0 THEN
  84. 840   Y=10:YYY=162
  85. 850 ENDIF
  86. 860 *ZHYOJI
  87. 870 CLS:RET=1:P=2
  88. 880 SYMBOL (0,YY),MAS$(RET),X,Y
  89. 890 IF MO(P)=0 THEN 930
  90. 900 RET=RET+1:YY=YY+YYY
  91. 910 P=P+1
  92. 920 GOTO 880
  93. 930 EOK$=INKEY$:IF EOK$="" THEN 930
  94. 940 END
  95.